home *** CD-ROM | disk | FTP | other *** search
/ Urabon Golden Age Girl 2 / Urabon Golden Age Girl 2.iso / mac / 裏ガール２data / FAVORITE.DIR / 00003_myUNDO.ls < prev    next >
Encoding:
Text File  |  1995-01-18  |  519 b   |  18 lines
  1. on mouseDown
  2.   global ngyou
  3.   repeat while the stillDown
  4.     if rollOver(clickOn()) then
  5.       set the castNum of sprite clickOn() to the number of cast "dnmyUNDO"
  6.     else
  7.       set the castNum of sprite clickOn() to the number of cast "myUNDO"
  8.     end if
  9.     updateStage()
  10.   end repeat
  11.   delete line ngyou of field "Selected"
  12.   delete line ngyou of field "zSelected"
  13.   set ngyou to ngyou - 1
  14.   set the visible of sprite 13 to 0
  15.   set the castNum of sprite clickOn() to the number of cast "myUNDO"
  16.   updateStage()
  17. end
  18.